home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / XPACK275.lha / rexx / Xcut.rexx < prev    next >
OS/2 REXX Batch file  |  1994-06-15  |  776b  |  28 lines
  1. /**/options results;options failat 99
  2. ;Parse upper arg od ra .
  3. ;OBJ=XfqGetAddress(ra)
  4. ;if ~XfqSessionUp(OBJ) then signal cleanexit
  5. ;if ~XfqHoldMailer(OBJ) then signal cleanexit
  6. ;parse var ra rd "#" rz ":" rn "/" rf "." rp .
  7. ;x=showdir(od,'F')
  8. ;file=rd'.'rz'.'rn'.'rf'.'rp'.CUT'
  9. ;if pos(file,x)>0 then signal addit
  10. ;file=rz'.'rn'.'rf'.'rp'.CUT'
  11. ;if ~pos(file,x)>0 then signal cleanup
  12. ;addit:
  13. ;QUERY.XQ_NAME=file
  14. ;QUERY.XQ_SITE=OBJ
  15. ;wn=XfqFindWork(QUERY)
  16. ;if wn~=NULL then do
  17. ;as=left(date(),2)||compress(time(),":")||".PKT"
  18. ;say 'Sending:'od||file'['as'] :'ra' Disp:21 Pri:75'
  19. ;v=XfqAddWorkQuick(ra,od||file,as,75,21)
  20. ;end;else v=XfqUnlockWork(wn)
  21. ;if wn~=NULL then v=XfqDropObject(wn)
  22. ;cleanup:
  23. ;v=XfqReleaseMailer(OBJ)
  24. ;cleanexit:
  25. ;v=XfqDropObject(OBJ)
  26. ;v=XfqClose()
  27. ;exit 0
  28.